home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1262 / samples / company.pr_ / company.pr
Text File  |  1995-03-14  |  3KB  |  118 lines
  1. * Generated by EasyCODE(SPX) V5.1 at 15.03.1995 18:56:57
  2. * with C:\EASY\SAMPLES\SPX-XBS\DBASE.CFG
  3.  
  4. * Company
  5.  
  6. * Company
  7.   PROCEDURE Company
  8.      * Definiton of environment
  9.      CLEAR ALL
  10.      SET DEVELOPMENT on
  11.      SET DELIMITERS  off
  12.      SET SCOREBOARD  off
  13.      SET ESCAPE      on
  14.      SET CLOCK       off
  15.      SET STATUS      off
  16.      SET EXACT       off
  17.      SET BELL        off
  18.      SET CATALOG     off
  19.      * Help key assignment
  20.      ON KEY LABEL F1 DO Helper
  21.      * Screen - dependent from HW
  22.      IF ISCOLOR()
  23.         c_normal = "W+/B,GR+/R,B"
  24.         c_pop    = "B/W,GR+/R,B"
  25.         red      = "R/W"
  26.         blue     = "B/W"
  27.         lt_blue  = "W/BG"
  28.      ELSE
  29.         STORE "W+/N,N/W" TO c_normal, c_pop
  30.         STORE "W"   TO red, blue
  31.         STORE "N/W" TO lt_blue
  32.      ENDIF
  33.      * Popup definition
  34.      DO Main_def
  35.      * Menu and menu selection
  36.      DO WHILE BAR() <> 13
  37.        SET COLOR TO &c_normal.
  38.        CLEAR
  39.        DO Title
  40.        SET COLOR TO &c_pop.
  41.        ACTIVATE POPUP mainmenu
  42.      ENDDO
  43.      CLOSE ALL
  44.      CLEAR
  45.   RETURN
  46. * Title
  47.   PROCEDURE Title
  48.      CLEAR
  49.      * Draw lines and frames in different colors
  50.      @ 2,24 TO 5,53 DOUBLE COLOR &blue.
  51.      @ 2,24 FILL TO 5,53   COLOR &blue.
  52.      SET COLOR TO &red.
  53.      @ 3,26 SAY "COMPANY MAHLER"
  54.      @ 4,26 SAY "dBASE IV SYSTEM"
  55.      SET COLOR TO &c_normal.
  56.   RETURN
  57. * Main_def
  58.   PROCEDURE Main_def
  59.      * Definition of main popup menu
  60.      DEFINE POPUP mainmenu FROM 7,27 TO 22,50 ;
  61.      MESSAGE "Select: <Enter first letter of option"
  62.      DEFINE BAR  1 OF mainmenu PROMPT "===== MAIN MENU =====" SKIP
  63.      DEFINE BAR  2 OF mainmenu PROMPT "      Database:" SKIP
  64.      DEFINE BAR  3 OF mainmenu PROMPT " EMPLOYEES"
  65.      DEFINE BAR  4 OF mainmenu PROMPT " CUSTOMERS"
  66.      DEFINE BAR  5 OF mainmenu PROMPT " DEALERS"
  67.      DEFINE BAR  6 OF mainmenu PROMPT " STOCK"
  68.      DEFINE BAR  7 OF mainmenu PROMPT " ORDERS"
  69.      DEFINE BAR  8 OF mainmenu PROMPT " BOOKING"
  70.      DEFINE BAR  9 OF mainmenu PROMPT " PHONE"
  71.      DEFINE BAR 10 OF mainmenu PROMPT "      Additonal:" SKIP
  72.      DEFINE BAR 11 OF mainmenu PROMPT " INVOICES"
  73.      DEFINE BAR 12 OF mainmenu PROMPT " MAKE BACKUP"
  74.      DEFINE BAR 13 OF mainmenu PROMPT " TERMINATE PROGRAM"
  75.      DEFINE BAR 14 OF mainmenu PROMPT " RETURN TO DOS"
  76.      ON SELECTION POPUP mainmenu DO Main
  77.   RETURN
  78. * Main
  79.   PROCEDURE Main
  80.      DO CASE
  81.         CASE BAR() =  3
  82.            DO Employees
  83.         CASE BAR() =  4
  84.            DO Customers
  85.         CASE BAR() =  5
  86.            DO Dealers
  87.         CASE BAR() =  6
  88.            DO Stock
  89.         CASE BAR() =  7
  90.            DO Order
  91.         CASE BAR() =  8
  92.            DO Invoice
  93.         CASE BAR() =  9
  94.            DO Phone
  95.         CASE BAR() =  11
  96.            SAVE SCREEN TO invtemp
  97.            DO Invoice
  98.            RESTORE SCREEN FROM invtemp
  99.         CASE BAR() =  12
  100.            DO Backup
  101.         CASE BAR() =  13 .OR. BAR() = 14
  102.            RELEASE ALL
  103.            SET CLOCK ON
  104.            SET COLOR OF NORMAL      TO W+/B
  105.            SET COLOR OF HIGHLIGHT   TO GR+/BG
  106.            SET COLOR OF MESSAGES    TO W/N
  107.            SET COLOR OF TITLES      TO W/B
  108.            SET COLOR OF BOX         TO GR+/BG
  109.            SET COLOR OF INFORMATION TO B/W
  110.            SET COLOR OF FIELDS      TO N/BG
  111.            IF BAR() = 13
  112.               RETURN TO MASTER
  113.            ELSE
  114.               QUIT
  115.            ENDIF
  116.      ENDCASE
  117.   RETURN
  118.